<script>on mouseUpglobal Speed, Colorrepeat with i = 4312 to 4315set icon of me to iend repeatrepeat with i = 24 to 25set the visible of card field id i¬to not the visible of card field id iend repeatset scroll of card field "Visual Effects" to 0repeat with i = 42 to 45set the visible of card btn id i¬to not the visible of card btn id iend repeatif the visible of card field "Visual Effects" is true thenset hilite of me to truerepeat with i = 22 to 25set style of bkgnd btn id i to rectangleend repeatelseset hilite of me to falserepeat with i = 22 to 25set style of bkgnd btn id i to transparentend repeatrepeat with i = 18 to 19if hilite of bkgnd btn id i is true thensend mouseUp to bkgnd btn id iend ifend repeatput empty into card field "Test"end ifput empty into Colorput empty into Speedpass mouseUpend mouseUp</script>
</part>
<part>
<id>18</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>68</left>
<top>121</top>
<right>107</right>
<bottom>171</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>14283</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Speed</name>
<script>on mouseUpset hilite of me to not hilite of meif hilite of me is true then effectsrepeat with i = 26 to 29set the visible of card btn id i¬to not the visible of card btn id iend repeatpass mouseUpend mouseUp</script>
</part>
<part>
<id>19</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>68</left>
<top>174</top>
<right>107</right>
<bottom>224</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>23177</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Color</name>
<script>on mouseUpset hilite of me to not hilite of meif hilite of me is true then effectsrepeat with i = 30 to 33set the visible of card btn id i¬to not the visible of card btn id iend repeatpass mouseUpend mouseUp</script>
</part>
<part>
<id>20</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>26</left>
<top>235</top>
<right>65</right>
<bottom>285</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>4188</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Info</name>
<script>on mouseUpdo short name of meend mouseUp</script>
</part>
<part>
<id>21</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>68</left>
<top>235</top>
<right>107</right>
<bottom>285</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>4179</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Map</name>
<script>on mouseUpdoMenu short name of meend mouseUp</script>
</part>
<part>
<id>22</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>200</left>
<top>268</top>
<right>225</right>
<bottom>291</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1014</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Go To Previous Card</name>
<script>on mouseUpscroll Lgo to prev cardend mouseUp</script>
<script>on mouseUpset hilite of me to truebeepanswer "You're already in" && quote & short name of me & quote & "."end mouseUp</script>
</part>
<part>
<id>51</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>224</left>
<top>63</top>
<right>370</right>
<bottom>75</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Mouse Loc</name>
<script></script>
</part>
<part>
<id>52</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>223</left>
<top>62</top>
<right>315</right>
<bottom>74</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>condense</textStyle>
<textStyle>outline</textStyle>
<textStyle>bold</textStyle>
<textHeight>12</textHeight>
<name>Mouse Loc1</name>
<script></script>
</part>
<part>
<id>53</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>312</left>
<top>62</top>
<right>369</right>
<bottom>76</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>condense</textStyle>
<textStyle>outline</textStyle>
<textStyle>bold</textStyle>
<textHeight>12</textHeight>
<name>Mouse Loc2</name>
<script>on idleif the visible of field "Mouse Loc2" is true thenput the mouseLoc into field "Mouse Loc2"end ifsend idle to stackexit idlepass idleend idle</script>
</part>
<part>
<id>72</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>15</left>
<top>300</top>
<right>251</right>
<bottom>312</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>Prev Card: card id 5476</name>
<script>on mouseUpscrollLgo to card char 12 to 99 of short name of meend mouseUp</script>
</part>
<part>
<id>73</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>253</left>
<top>300</top>
<right>492</right>
<bottom>312</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>Next Card: Copy of Home</name>
<script>on mouseUpscrollRgo to card char 12 to 99 of short name of meend mouseUp</script>
</part>
<part>
<id>78</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>16</left>
<top>300</top>
<right>252</right>
<bottom>312</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>condense</textStyle>
<textStyle>outline</textStyle>
<textStyle>bold</textStyle>
<textHeight>12</textHeight>
<name></name>
<script>on mouseUpscrollLgo to card char 12 to 99 of short name of meend mouseUp</script>
</part>
<part>
<id>79</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>253</left>
<top>300</top>
<right>492</right>
<bottom>313</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>condense</textStyle>
<textStyle>outline</textStyle>
<textStyle>bold</textStyle>
<textHeight>12</textHeight>
<name></name>
<script>on mouseUpscrollRgo to card char 12 to 99 of short name of meend mouseUp</script>
</part>
<part>
<id>80</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>374</left>
<top>63</top>
<right>493</right>
<bottom>75</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>FreeSpaceMon</name>
<script></script>
</part>
<part>
<id>81</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>374</left>
<top>62</top>
<right>466</right>
<bottom>74</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>condense</textStyle>
<textStyle>outline</textStyle>
<textStyle>bold</textStyle>
<textHeight>12</textHeight>
<name>FreeSpaceMon1</name>
<script>on mouseDownset the numberFormat to "0.00"get the freeSize of this stackput it / 1024 && "K" into FSput FS into field "FreeSpaceMon2"end mouseDown</script>
</part>
<part>
<id>82</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>436</left>
<top>62</top>
<right>493</right>
<bottom>76</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>condense</textStyle>
<textStyle>outline</textStyle>
<textStyle>bold</textStyle>
<textHeight>12</textHeight>
<name>FreeSpaceMon2</name>
<script>on mouseDownset the numberFormat to "0.00"get the freeSize of this stackput it / 1024 && "K" into FSput FS into field "FreeSpaceMon2"end mouseDown</script>
</part>
<part>
<id>83</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>12</left>
<top>26</top>
<right>494</right>
<bottom>38</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>condense</textStyle>
<name>A | B | C | D | E | F | G | H | I | J | K | L | M | N | O | P | Q | R | S | T | U | V | W | X | Y | Z | + | -</name>
<script>on mouseDownglobal Fred, Nickset hilite of me to truelockcardpush cardgo to bkgnd id 2295if Fred <> empty thenif visible of field Fred is true then hide field Fredend ifput the rect of the target into holderput (item 1 of the clickloc) - (item 1 of the rect of me) into Aput (item 3 of the rect of me) - (item 1 of the rect of me) into Bput the numToChar of (trunc(A/(B/28))+65) into Fredif Fred is empty thenpop cardexit mouseDownelse if Fred is "[" then indexAddNameelse if Fred is "\" then indexDeleteNameelseplay Fredif the commandKey is down then indexEditModeelseput (item 1 of the clickloc-6) into horizput (item 2 of holder)+12 into vertif script of field Fred is empty thenanswer "Oops, nothing to display." with "Sorry"pop cardexit mouseDownelseget PopUpMenu(script of field Fred,0, vert, horiz)if it is "0" thenpop cardexit mouseDownelseput (line it of script of field Fred) into Sampop cardunlockcardif Sam is "Menu Maker" thenanswer "Sorry, This feature not yet supported"exit mouseDownelse if Sam is "Menus" thenanswer "Sorry, This feature not yet supported"exit mouseDownelse if Sam is "Scripts" thenanswer "Sorry, This feature not yet supported"exit mouseDownelse if Sam is "Button Font Changer" thenchangeFontexit mouseDownelse if Sam is "Change Button Font" thenchangeFontexit mouseDownelse if Sam is "Crash" thencrashexit mouseDownelse if Sam is "Create An Icon" thenMakeIconexit mousedownelse if Sam is "Credits" thencreditsexit mouseDownelse if Sam is "Cursors" thencursorsexit mouseDownelse if Sam is "Date & Time" thentimeDateexit mouseDownelse if Sam is "Dedications" thendedicationsexit mouseDownelse if Sam is "DeProtect Stack" thendeprotect1exit mouseDownelse if Sam is "Disk Space Available" thendiskSpaceAvailexit mouseDownelse if Sam is "Don't Click Here" thenoverLoadexit mouseDownelse if Sam is "Don't Panic" thenpanicexit mouseDownelse if Sam is "Edit This Bkgnd Script" thenedit script of this bkgndexit mouseDownelse if Sam is "Edit This Card Script" thenedit script of this cardexit mouseDownelse if Sam is "Edit This Stack Script" thenedit script of this stackexit mouseDownelse if Sam is "Free Space in this stack" thenfreeSpaceexit mouseDownelse if Sam is "Free Space Monitor" thenfreeSpaceMonexit mouseDownelse if Sam is "Get Specs" thengetSpecsexit mouseDownelse if Sam is "Heap Space" thenheapSpaceAvailexit mouseDownelse if Sam is "Hidden Buttons" thenShowHiddenBtnsexit mouseDownelse if Sam is "Hidden Fields" thenShowHiddenFieldsexit mouseDownelse if Sam is "HyperCard Version?" thenHyperCardVersionexit mouseDownelse if Sam is "HyperEdit" thenanswer "Hold down the return Key and the shift Key"exit mouseDownelse if Sam is "HyperSound™" thengo to stack "HyperSound"exit mouseDownelse if Sam is "Last Updated" thenupdatedexit mouseDownelse if Sam is "List Next & Prev Cards" thenLNPCexit mouseDownelse if Sam is "Make Icons" thenMakeIconexit mousedownelse if Sam is "Mouse Location" thenmouseLocationexit mousedownelse if Sam is "Open Aplication" thenopenAplexit mouseDownelse if Sam is "Pixel Grid" thenpiGridexit mouseDownelse if Sam is "ResCopy" thenResCopyexit mouseDownelse if Sam is "ResEdit" thenopen "ResEdit 1.1B3"exit mouseDownelse if Sam is "Script of Bkgnd..." thenbkgndScriptexit mouseDownelse if Sam is "Script of Button..." thenbtnScriptexit mouseDownelse if Sam is "Script of Card..." thencardScriptexit mouseDownelse if Sam is "Script of Field..." thenfieldScriptexit mouseDownelse if Sam is "Script of Stack..." thenstackScriptexit mouseDownelse if Sam is "Script of Home" thenHomeScriptexit mouseDownelse if Sam is "Scripts" thenanswer "Sorry, This feature not yet supported"exit mouseDownelse if Sam is "Show Heap Space" thenheapSpaceAvailexit mouseDownelse if Sam is "Show Size of This Stack" thenSizeofStackexit mouseDownelse if Sam is "SoundEdit™" thenopen SoundEditexit mouseDownelse if Sam is "Stack Space Available" thenstackSpaceAvailexit mouseDownelse if Sam is "Updated Last" thenupdatedexit mouseDownelse if Sam is "Time & Date" thentimeDateexit mouseDownelse unlockif Sam is "About Stack Starter" then go to card "the stack starter"else if Sam is "Allover Analyzer" then go to card "the allover analyzer"else if Sam is "Animated Icons 1" then go to card "animated icons 1"else if Sam is "Animated Icons 2" then go to card "animated icons 2"else if Sam is "Animated Icons 3" then go to card "animated icons 3"else if Sam is "Animated Icons 4" then go to card "animated icons 4"else if Sam is "Animated Icons 5" then go to card "animated icons 5"else if Sam is "Animated Icons 6" then go to card "animated icons 6"else if Sam is "Author" then authorelse if Sam is "Button Breeder" then go to card "the button breeder"else if Sam is "Buttons" then go to card "the button breeder"else if Sam is "Cover" then go to card "the stack starter"else if Sam is "Controls" then go to card "the controls cultivator"else if Sam is "Crash" then crashelse if Sam is "Credits" then creditselse if Sam is "Dedications" then dedicationselse if Sam is "Don't Panic" then panicelse if Sam is "Effects" then go to card "the effects editor"else if Sam is "Effects Editor" then go to card "the effects editor"else if Sam is "Explanations" then go to card "the stack starter"else if Sam is "Fields" then go to card "the field fabricator"else if Sam is "Field Fabricator" then go to card "the field fabricator"else if Sam is "Free-Roaming Icons" then go to card "Animated Icons 1"else if Sam is "Gauges" then go to card "meters and gauges"else if Sam is "Graphic Examples" then pauseelse if Sam is "Graphic Techniques" then pauseelse if Sam is "Helpful Hierarchy" then go to card "the helpful hierarchy"else if Sam is "Hierarchy" then go to card "the helpful hierarchy"else if Sam is "HyperSound™" then go to stack "HyperSound"else if Sam is "Icon Iniatiator" then go to card "the icon iniatiator"else if Sam is "Icons" then go to card "the icon iniatiator"else if Sam is "Interactive Icons" then go to card "Animated Icons 1"else if Sam is "Intro" then pauseelse if Sam is "Keyboard Simulator" then go to card "Keyboard"else if Sam is "Knobs" then go to card "knobs"else if Sam is "Map" then go to card "the master map"else if Sam is "Master Map" then go to card "the master map"else if Sam is "Meters" then go to card "meters"else if Sam is "Multi-Icon Buttons" then go to card "Multi-Icon Buttons"else if Sam is "Open Aplication" then openAplelse if Sam is "Panic" then panicelse if Sam is "Pause" then pauseelse if Sam is "Pushbuttons" then go to card "Pushbuttons Switches"else if Sam is "Sliders" then go to card "sliders"else if Sam is "Sounds" then go to card "the sound sampler"else if Sam is "Speech" then go to card "the sound sampler"else if Sam is "Switches" then go to card "Pushbuttons Switches"else if Sam is "Tools" then go to card "the allover analyzer"else if Sam is "Visual Effects" then go to card "the effects editor"else if Sam is "XCMDs" then go to card "the master map"else if Sam is "XFCNs" then go to card "the master map"elseput "the " before Samgo card Samif the result <> empty then answer "Sorry, this feature not yet supported."end ifend ifend ifend ifend ifhide msgend mouseDownon indexAddNameglobal Fredask "What menu ITEM would you like to add?"¬with "Please type ITEM NAME here."if it is "Please type ITEM NAME here." thenelse if it is empty thenelseset cursor to 4lockcardput it into addNameput first char of addName into Fredif Fred is not in "ABCDEFGHIJKLMNOPQRSTUVWXYZ" then beep 2elseput LowerToUpper(char 1 of addName) into char 1 of addNameput script of field Fred into field Fredput addName into line (number of lines in field Fred)¬+ 1 of field Fredput SortLines(field Fred, "A" ) into field Fredput crunch(field Fred) into field Fredset script of field Fred to field Fredend ifend ifput empty into Fredend indexAddNameon indexDeleteNameglobal Fredask "Please enter the EXACT ITEM NAME to delete."if it is empty thenelseput it into deNameanswer "Delete" && quote & deName & quote & "?"¬with "Cancel" or "Yes"if it is "Yes" thenset cursor to 4lockcardput first char of deName into Fredif Fred is not in "ABCDEFGHIJKLMNOPQRSTUVWXYZ" then beep 2elseput script of field Fred into field FredRepeat with i = 1 to (number of lines in field Fred + 1)if line i of field Fred = dename thendelete line i of field Fredexit repeatend ifend repeat--if i > (number of lines in field Fred) then--beep 2-- answer "You must type name exactly as it appears"--elseput SortLines(field Fred, "A" ) into field Fredput crunch(field Fred) into field Fredset script of field Fred to field Fred-- end ifend ifend ifend ifput empty into Fredend indexDeleteNameon indexEditModeglobal Frededit script of field Fredset cursor to 4lockcardput script of field Fred into field FredRepeat with i = 1 to number of lines in field Fredput LowerToUpper(char 1 of line i of field Fred)¬into char 1 of line i of field Fredend repeatput SortLines(field Fred, "A" ) into field Fredput crunch(field Fred) into field Fredset script of field Fred to field Fredend indexEditModeon mouseUpset lockMessages to trueend mouseUp</script>
</part>
<part>
<id>84</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>12</left>
<top>311</top>
<right>59</right>
<bottom>327</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Cover</name>
<script>on mouseUpset hilite of me to truedoMenu short name of meset hilite of me to falseend mouseUp</script>
</part>
<part>
<id>85</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>58</left>
<top>311</top>
<right>93</right>
<bottom>327</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Map</name>
<script>on mouseUpset hilite of me to truedoMenu short name of meset hilite of me to falseend mouseUp</script>
</part>
<part>
<id>86</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>92</left>
<top>311</top>
<right>151</right>
<bottom>327</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Buttons</name>
<script>on mouseUpset hilite of me to truedoMenu short name of meset hilite of me to falseend mouseUp</script>
</part>
<part>
<id>87</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>150</left>
<top>311</top>
<right>211</right>
<bottom>327</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Controls</name>
<script>on mouseUpset hilite of me to truedoMenu short name of meset hilite of me to falseend mouseUp</script>
</part>
<part>
<id>88</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>264</left>
<top>311</top>
<right>310</right>
<bottom>327</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Fields</name>
<script>on mouseUpset hilite of me to truedoMenu short name of meset hilite of me to falseend mouseUp</script>
</part>
<part>
<id>89</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>309</left>
<top>311</top>
<right>352</right>
<bottom>327</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Icons</name>
<script>on mouseUpset hilite of me to truedoMenu short name of meset hilite of me to falseend mouseUp</script>
</part>
<part>
<id>90</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>351</left>
<top>311</top>
<right>404</right>
<bottom>327</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Scripts</name>
<script>on mouseUpset hilite of me to truedoMenu short name of meset hilite of me to falseend mouseUp</script>
</part>
<part>
<id>91</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>403</left>
<top>311</top>
<right>455</right>
<bottom>327</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Sounds</name>
<script>on mouseUpset hilite of me to truedoMenu short name of meset hilite of me to falseend mouseUp</script>
</part>
<part>
<id>92</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>454</left>
<top>311</top>
<right>494</right>
<bottom>327</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Tools</name>
<script>on mouseUpset hilite of me to truedoMenu short name of meset hilite of me to falseend mouseUp</script>
</part>
<part>
<id>93</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>26</left>
<top>174</top>
<right>65</right>
<bottom>224</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>29399</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>MorEFX</name>
<script>on mouseDownput the rect of the target into holderput item 1 of holder into horizput item 2 of holder into vertget PopUpMenu(" Moire ; Modrian ; Stripes ",3, vert, horiz)hideallif it is empty thenelse if it is 1 thenanswer "Sorry, That feature is not yet supported."else if it is 2 thenreset paintchoose bucket toolset pattern to 1click at 0,0choose select toolset dragSpeed to 1000repeat foreverdrag from random(256),random(171) to ¬(random(256) + 255),(random(171) + 170)if the mouse is down thencleanUpexit mouseDownend ifdoMenu "Invert"choose select toolend repeatelse if it is 3 thenchoose brush toolset brush to 1repeat with i = 40 down to 1set pattern to idrag from 0,9 * (i-1) to 512 ,9 * (i-1)drag from 13 * (i-1), 10 to 13 * (i-1), 400if the mouse is down thencleanUpexit mouseDownend ifend repeatchoose browse toolelsecleanUpend ifwait until the mouseClickcleanUpend mouseDownon cleanUpchoose select tooldoMenu "Select All"doMenu "Clear Picture"choose browse toolshow menubarend cleanUp</script>
<script>on mouseDownglobal ActiveFieldset hilite of me to trueput "field id 13" into jimput the rect of the target into holderput (item 1 of the clickloc) - (item 1 of the rect of me) into Aput (item 3 of the rect of me)-(item 1 of the rect of me) into Bput trunc(A/(B/5))into joeif Joe is empty thenelseput (item 1 of the clickloc-6) into horizput (item 2 of holder)+13 into vertif joe is "0" thenget PopUpMenu(" 0 ; 1 ; 2 ; 3 ; 4 ; 5 ; 6 ; 7 ", 0, vert, horiz)if it is "0" thenelseput word it of " 0 1 2 3 4 5 6 7" into samSetVolume(sam)play harpsichord "c ew"end ifelse if Joe is "1" thenif script of field "fontField" is empty thenanswer "Oops, no FONTS in this system." with "Sorry"exit mouseDownelseget PopUpMenu(script of field "fontField",0, vert, horiz)if it is "0" thenelseput (line it of script of field "fontField") into Samif ActiveField <> empty thenset textFont of ActiveField to samelse set textFont to samend ifend ifelse if Joe is "2" thenget PopUpMenu(" Plain ; Bold ; Italic ; Underline ; Outline ; Shadow ; Condense ; Extend ;(----------) ; Left ; Center ; Right ", 0, vert, horiz)if it is "0" thenelseput word it of " Plain Bold Italic Underline Outline Shadow Condense Extend -- Left Center Right" into samif ActiveField <> empty thenif sam is "Plain" then set textStyle of ActiveField to plainelse if sam is "Left" then set textAlign of ActiveField to leftelse if sam is "Center" then set textAlign of ActiveField to centerelse if sam is "Right" then set textAlign of ActiveField to rightelse if textStyle of ActiveField is "Plain" then set textStyle of ActiveField to samelseput "set textStyle of" && ActiveField && "to" && ((textStyle of ActiveField) & "," && sam) into tempdo (temp)end ifelseif sam is "Plain" then set textStyle to samelse if sam is "Left" then set textAlign to leftelse if sam is "Center" then set textAlign to centerelse if sam is "Right" then set textAlign to rightelse if the textStyle is "Plain" then set textStyle to samelseput "set textStyle" && "to" && ((the textStyle) & "," && sam) into tempdo (temp)end ifend ifend ifelse if Joe is "3" thenget PopUpMenu(" 6 ; 8 ; 9 ; 10 ; 12 ; 14 ; 18 ; 24 ; 36 ; 48 ; 52 ; 72 ", 0, vert, horiz)if it is "0" thenelseput word it of " 6 8 9 10 12 14 18 24 36 48 52 72 " into samif ActiveField <> empty thenset textSize of ActiveField to samelse set textSize to samend ifelse if Joe is "4" thenget PopUpMenu(" +1 ; -1 ; +3 ; -3 ; +5 ; -5 ; +10 ; -10 ", 0, vert, horiz)if it is "0" thenelseput word it of " +1 -1 +3 -3 +5 -5 +10 -10 " into samif ActiveField <> empty thenput "set textHeight of" && ActiveField && "to (" &¬(textHeight of ActiveField) & (sam) & ")" into tempdo (temp)end ifend ifend ifend ifend mouseDownon mouseUpend mouseUp</script>
</part>
<part>
<id>95</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>15</left>
<top>39</top>
<right>118</right>
<bottom>52</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>Set UserLevel To:</name>
<script>on mouseDownset hilite of me to trueput the loc of me into holderput (item 1 of holder-52) into horizput (item 2 of holder)+8 into vertget PopUpMenu("1 Browsing ;2 Typing ;3 Painting ;4 Authoring ;5 Scripting ", 0, vert, horiz)if it is "0" then set userlevel to 1else if it is "1" then set userlevel to 2else if it is "2" then set userlevel to 3else if it is "3" then set userlevel to 4else if it is "4" then set userlevel to 5else exit mouseDownend mouseDownon mouseUpend mouseUp</script>
</part>
<name>Effects Editor</name>
<script>on openCardput the short name of this card into bkgnd field "Title"put "Prev Card:" && short name of prev card into field id 78put "Next Card:" && short name of next card into field id 79pass openCardend openCardon mouseEnterglobal TargetEnter, NewBtn, NewBtnid, NewBtnNif TargetEnter <> empty thenwait 60put the short name of the target into NewBtnput the target into NewBtnNput the id of the target into NewBtnidput "Change font of " & NewBtnNif word 2 of NewBtnN <> "Button" then exit mouseEnterif word 2 of NewBtn is "Button" thenask "This Button needs a name." with "Please, type name here."if it is empty then exit mouseEnterset name of NewBtnN to itput it into NewBtnend ifanswer "Change font of " & NewBtnN with "Cancel" or "OK"if it is "Cancel" then exit mouseEnterput empty into TargetEnterhide msgiconCheckend ifend mouseEnter</script>
